#include <iostream>
#include <string>
#include <vector>
void analyze_text(std::string text) {
    std::vector<std::string> words;
    std::string word = "";
    for (char c : text) {
        if (c == ' ') {
            words.push_back(word);
            word = "";
        } else {
            word += c;
        }
    }
    words.push_back(word);
    int num_words = words.size();
    int num_capital_cyrillic = 0;
    int num_latin_symbol = 0;
    int num_short_words = 0;
    int num_hyphen_words = 0;
    std::string longest_word = "";
    for (std::string word : words) {
        if (isupper(word[0]) && isalpha(word[0]) && isalpha(word[0])) {
            num_capital_cyrillic += 1;
        }
        bool has_latin_symbol = false;
        for (char c : word) {
            if (isalpha(c) && isascii(c)) {
                has_latin_symbol = true;
                break;
            }
        }
        if (has_latin_symbol) {
            num_latin_symbol += 1;
        }
        if (word.length() <= 3) {
            num_short_words += 1;
        }
        if (word.find('-') != std::string::npos) {
            num_hyphen_words += 1;
        }
        if (word.length() > longest_word.length()) {
            longest_word = word;
        }
    }
    std::cout << "Кол-во red: " << num_words << std::endl;
    std::cout << "Кол-во слов с заглавной кириллической буквы: " << num_capital_cyrillic << std::endl;
    std::cout << "Кол-во слов содержащих латинский символ: " << num_latin_symbol << std::endl;
    std::cout << "Кол-во слов не превышающих 3 символа: " << num_short_words << std::endl;
    std::cout << "Кол-во слов в составе которых имеется дефис: " << num_hyphen_words << std::endl;
    std::cout << "Самое длинное слово: " << longest_word << std::endl;
    std::cout << "Длина слова: " << longest_word.length() << std::endl;
}
int main() {
    std::string text;
    std::getline(std::cin, text);
    analyze_text(text);
    return 0;
}

